home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / general / cdbw.exe / MENU.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-09-15  |  5KB  |  151 lines
  1.  CDB Sample Program (Client List)
  2. Form1
  3. ListClient
  4. MenuFile
  5. &File
  6. MenuFileExit
  7. E&xit
  8. MenuFileSeparator
  9. MenuFileAbout
  10.     A&bout...
  11. MenuClient
  12. &Client
  13. MenuClientAdd
  14. &Add...
  15. MenuClientUpdate
  16. &Update...
  17. MenuClientDelete
  18. &Delete...
  19. List1_Click
  20. MenuClientAdd_Click
  21. Client
  22. MODAL
  23. Form_Click
  24. @    Form_Load
  25. dbstat
  26. DbOpen
  27. cdbmenu
  28. db_error
  29. FALSE
  30. XDbRecordGetFirst
  31. setup
  32. lStatus
  33. dwStatus
  34. DbError
  35. dbxerrorX
  36. E_TESTDRIVEl
  37. nErrory
  38.     nExtError
  39. Windows
  40. szTemp
  41. nIcon
  42. nStatus
  43. lErrorb
  44.     lExtError
  45. E_NOTFOUND
  46. lNextClientNbr
  47. setuprecord
  48. XDbRecordAdd
  49. setuprecX
  50. DbClose
  51. szDescN
  52. DbFlush
  53. Form_Unloadn
  54. Cancel
  55. MenuFileExit_Click
  56. szString
  57. XDbRecordGetByKey4
  58. szSearchString%
  59. addressrec
  60. address1
  61. szTelephone
  62. szZip
  63. record~
  64. doesn>
  65. MenuSortByClientName_Click 
  66. nClientMode
  67. MODE_ADD
  68.     szAppName
  69. MenuClientUpdate_Click
  70. nIndex
  71. clientlist
  72. ListClient
  73.     ListIndex
  74. ListIndexEnd
  75. MODE_UPDATE
  76. szKey
  77. lClientNbr
  78.     clientrecT
  79. bFlag
  80. LoadClientListBox
  81. AddClientToListBox
  82. AddToClientListBox
  83. XDbRecordGetNext@
  84. E_NONEXT
  85. ListClient_Clickn
  86. Menu_CLientUpdateClick
  87. MenuClientDelete_Click
  88. XDbRecordFindByKey
  89. DeleteAddressMembers
  90. DbRecordDelete
  91. DeleteFromClientListBox
  92. ListClient_DblClick
  93. MenuFileAbout_Click
  94. About
  95. MenuClientAdd_Click
  96. Set the mode to add and open client dialog
  97. Form_Load
  98. Set global app name 
  99. Client List"
  100. Open the databasea
  101.     'Change the open directory as needed...
  102. c:\proj\cdbw\"
  103. sampledb.dbd
  104. Error opening database!"
  105. End the application 
  106. Get the setup record, if it doesn't exist create one
  107. setup"
  108. lNextClientNbr
  109. Start at client number 1000i
  110. setup"
  111. Error retrieving or adding setup record!
  112. Load the client list box
  113. Flush the record added to disk
  114. Form_Unload
  115. Close the database
  116. MenuFileExit_Click
  117. MenuClientUpdate_Click
  118. Get the highlighted client index
  119. Retrieve the recorde
  120. client
  121. lClientNbr
  122. Error retrieving record!
  123. Set the mode to update and open client dialogi
  124. LoadClientListBox
  125. Get the first record
  126. client
  127. lClientNbr
  128. Error retrieving Client record!"
  129. Retrieve all records
  130. Add to list boxn
  131. client
  132. lClientNbr
  133. Check for errors
  134. Error retrieving Client record!"
  135. MenuClientDelete_Click
  136. Get the highlighted client index
  137. Query user if OK to delete?l
  138. Delete this client?"
  139. Find the record
  140. client
  141. lClientNbr
  142. Error finding record!"
  143. Delete all address member records
  144. Delete the client record
  145. client
  146. Error deleting Client record!"
  147. Delete from list box
  148. Flush database
  149. ListClient_DblClick
  150. MenuFileAbout_Click
  151.